IV. Simulated Data & Plots

Getting the Simulated Data

sim3d = plot_ly(simdata, x = ~EPR, y = ~EPH, z = ~PSIM,
                         marker = list(color = ~NPR, colorscale = c('#FFE1A1', '#683531'), showscale = TRUE))
sim3d = sim3d %>% add_markers()
sim3d = sim3d %>% layout(scene = list(xaxis = list(title = 'Free Electricity per Resident'),
                                             yaxis = list(title = 'Free Electricity per Household'),
                                             zaxis = list(title = 'Electricity Unit Price')),
                                annotations = list(
                                  x = 1.13,
                                  y = 1.05,
                                  text = '# People Suffering From EPOV',
                                  xref = 'paper',
                                  yref = 'paper',
                                  showarrow = FALSE
                                ))

sim3d
LS0tDQp0aXRsZTogIkVuZXJneSBhcyBhIEZ1bmRhbWVudGFsIFJpZ2h0IH4gRUZSSSB+IFNpbXVsYXRpb24gTW9kZWwiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCmVkaXRvcl9vcHRpb25zOiANCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQ0KLS0tDQojICoqSVYuIFNpbXVsYXRlZCBEYXRhICYgUGxvdHMqKg0KDQojIyMgKipHZXR0aW5nIHRoZSBTaW11bGF0ZWQgRGF0YSoqDQoNCmBgYHtyIDNEIFBsb3R9DQpzaW0zZCA9IHBsb3RfbHkoc2ltZGF0YSwgeCA9IH5FUFIsIHkgPSB+RVBILCB6ID0gflBTSU0sDQogICAgICAgICAgICAgICAgICAgICAgICAgbWFya2VyID0gbGlzdChjb2xvciA9IH5OUFIsIGNvbG9yc2NhbGUgPSBjKCcjRkZFMUExJywgJyM2ODM1MzEnKSwgc2hvd3NjYWxlID0gVFJVRSkpDQpzaW0zZCA9IHNpbTNkICU+JSBhZGRfbWFya2VycygpDQpzaW0zZCA9IHNpbTNkICU+JSBsYXlvdXQoc2NlbmUgPSBsaXN0KHhheGlzID0gbGlzdCh0aXRsZSA9ICdGcmVlIEVsZWN0cmljaXR5IHBlciBSZXNpZGVudCcpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWF4aXMgPSBsaXN0KHRpdGxlID0gJ0ZyZWUgRWxlY3RyaWNpdHkgcGVyIEhvdXNlaG9sZCcpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgemF4aXMgPSBsaXN0KHRpdGxlID0gJ0VsZWN0cmljaXR5IFVuaXQgUHJpY2UnKSksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFubm90YXRpb25zID0gbGlzdCgNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB4ID0gMS4xMywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ID0gMS4wNSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0ZXh0ID0gJyMgUGVvcGxlIFN1ZmZlcmluZyBGcm9tIEVQT1YnLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHhyZWYgPSAncGFwZXInLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHlyZWYgPSAncGFwZXInLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNob3dhcnJvdyA9IEZBTFNFDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICkpDQoNCnNpbTNkDQpgYGA=